home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 63
/
063.d81
/
contest winners
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
194 lines
100 poke53280,.:poke53281,.
140 poke55,120:poke56,55:clr:a$=""
160 sys57812"unpacker.89",8,0:poke780,.:poke781,.:poke782,201:sys65493
170 sys57812"input any.o",8,0:poke780,.:poke781,60:poke782,3:sys65493
180 sys57812"psave 1.0.o",8,0:poke780,.:poke781,.:poke782,192:sys65493
190 :
200 ip=828:unpack=51456:hgr=51459
210 ps=49152:rem ps-pic save
220 :
230 read np : dim r$(np),c(np),c$(7)
240 forx=1tonp:readr$(x),c(x)
250 next:c$(1)="":c$(2)="[153]":c$(3)="":c$(4)="[159]":c$(5)="[154]"
260 gosub 1510: rem title screen
270 forx=1tonp
280 gosub1810
290 sys57812r$(x),8,0:poke780,.:poke781,.:poke782,64:sys65493
300 :
310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
320 poke251,64:poke252,224:poke253,204
330 print"[147]";:sysunpack:sys hgr:poke53280,c(x)
340 ag=3.34:kk=.
350 poke198,.
355 ifz3=0then360
357 z4=z4+1:z4=z4and15
358 poke53281,z4
360 kk=kk+1:geta$:ifa$=""andkk<800then355
370 ifa$="q"ora$="[209]"thengosub 1250
380 ifa$="s"ora$="[211]"then 470
390 ifa$<>chr$(133)then410
400 z1=z1+1:z1=z1and15
405 poke53280,z1:goto340
410 ifa$<>chr$(134)then416
412 z2=z2+1:z2=z2and15
415 poke53281,z2:goto340
416 ifa$<>chr$(135)then420
417 z3=z3+1:z3=z3and1:goto340
420 syshgr:print"[147]":poke198,.:next x
430 goto270
440 :
450 rem save koala pic
460 :
470 sys hgr
480 poke53280,.:poke53281,.
490 print"[147]":poke214,11:print
500 print" save this unpacked picture? (y/n)"
510 geta$:ifa$=""then510
520 ifa$="[217]"ora$="y"then 560
530 ifa$="[206]"ora$="n"then 330
540 goto 510
550 :
560 print"[147]":poke214,9:print
570 print" enter file name you wish to save as."
580 :
590 print" name : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][154][193][146]";
600 ln%=14:sp$=" "
610 gosub680:ifnm$=""then490
620 nm$=left$(chr$(129)+nm$+sp$,15)
630 print" is this correct? (y/n)"
640 geta$:ifa$=""then640
650 ifa$="y"ora$="[217]"then 790
660 ifa$="n"ora$="[206]"then 490
670 goto640
680 rem --- input routine ---
690 nm$="":x%=0:c%=peek(646)
700 print"[152][164][157]";:poke646,c%
710 geta$:ifa$=""then710
720 a%=asc(a$)
730 ifa%=20andx%>0thenx%=x%-1:nm$=left$(nm$,len(nm$)-1):print" [157][157]";:goto700
740 ifa%=20then710
750 ifa%=13 then print" ":return
760 ifx%=ln% then forer=1to2:poke53280,abs(255-peek(53280)):next:goto710
770 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"ora=34 then 710
780 nm$=nm$+a$:printa$;:x%=x%+1:goto700
790 :
800 rem -- check for 'file exists' --
810 :
820 open15,8,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
830 if er<>62 then gosub1160:goto490
840 :
850 rem --- save pic ---
860 :
870 poke251,64:poke252,224:poke253,204
880 :
890 print"[147]":sysunpack
900 :
910 sys hgr:poke53280,c(x)
920 nm$=nm$+",p,w"
930 sys ps,nm$
940 sys hgr
950 :
960 rem --- check for errors ---
970 :
980 open15,8,15:input#15,er,er$,y$,z$:close15
990 ifer>. then gosub1160:goto 490
1000 :
1010 rem -- everything ok ---
1020 :
1030 poke53280,.:poke53281,.
1040 print"[147]":poke214,7:print
1050 print" saving complete."
1060 print" please replace your loadstar disk"
1070 print" in your disk drive and press space"
1080 geta$:ifa$<>" "then1080
1090 open15,8,15,"r0:psave 1.0.o=psave 1.0.o":input#15,er:close15
1100 ifer<>63 then 1040
1110 sys hgr:goto 420
1120 :
1130 :
1140 :
1150 rem --- print dos error msg ---
1160 :
1170 poke53280,.:poke53281,.:print"[147] [129] d i s k e r r o r !
1180 [151]214,10:[153]
1190 a$[178]"print#error #"[170][196](er)[170]"print#,"[170]er$
1200 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
1210 [151]214,21:[153]
1220 [153]"print# press space to continue."
1230 [161]a$:[139]a$[179][177]" "[167]1230
1240 [142]
1250 o[178][194](53270)[175]16
1255 [139]o[167][158]51459
1260 [151]53281,0:[151]53280,0
1270 [153]"load atnre you sure you want to quit? (y/n)"
1280 [151]198,0:[146]198,1:[161]ag$
1290 [139]ag$[178]"y"[176]ag$[178]"(NULL)"[167]1330
1295 [139]o[167][158]51459
1300 [142]
1320 [143] quit
1330 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
1340 [139]er[179][177]63[167][153]"load":[128]
1350 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
1360 [153]"run"
1370 [151]631,13:[151]632,13:[151]198,2:[128]
1380 [143] data <title>,<border color>
1390 [131] 5
1400 [131] cat memory,0
1410 [131] world or me,0
1420 [131] flying free,0
1430 [131] irish castle,0
1440 [131] winsome,0
1500 :
1510 [143] title screen
1520 [153]"load":[151]53281,1:[151]53280,1
1530 [153]" or{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
1540 [153]" (NULL)(NULL)oadstar (NULL)resents(NULL)print# "
1550 [153]" /tantantantantantantantantantantantantantantantantanexpprint# "
1560 [153]" "
1570 [153]
1580 [153]" openortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
1590 [153]" (NULL) ortantantantantantantantantantantantantantantantantantantantantantantan^open (NULL)print# "
1600 [153]" open(NULL) (NULL) 1989 lenontest (NULL)inners (NULL)cont open (NULL)print# "
1610 [153]" open(NULL) /tantantantantantantantantantantantantantantantantantantantantantantanexpcont open (NULL)print# "
1620 [153]" open(NULL) cont open (NULL)print# "
1630 [153]" open(NULL) (NULL)print#close"
1640 [153]" open(NULL) (NULL)lide (NULL)how (NULL)resenter (NULL)print#close"
1650 [153]" open(NULL) (len) 1989 by (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL), right$nc. (NULL)print#close"
1660 [153]" open(NULL) (NULL)print#close"
1670 [153]" open/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpprint#close"
1680 [153]" "
1690 [153]
1700 [153]" ortantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
1710 [153]" (NULL) atnll pictures crafted by (NULL)print# "
1720 [153]" (NULL) (NULL)arious atnrtists (NULL)print# "
1730 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpprint# "
1740 [153]" "
1750 :
1760 [153]" ( (NULL)ress any key to start the showclose)";:kk[178]0
1770 [153]"";
1780 kk[178]kk[170]1:[161]a$:[139]a$[178]""[175]kk[179]500[167]1780
1790 [151]53281,5:[142]
1800 :
1810 [151]53281,6:[151]53280,6
1820 [153]"loadprint#ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
1830 [129]qx[178]1[164]12
1840 [153]"(NULL)(NULL)";:[130]
1850 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
1860 [129]lx[178]217[164]217[170]26:[151]lx,([194](lx)[176]128):[130]
1870 nm$[178]"p."[170]r$(x)
1880 [159]2,8,2,nm$:[153]"";
1890 [129]i[178]0[164]1:[158]ip,2,40:[153]""a$
1900 i[178]st:[130]:[160]2:[142]
1910 kk[178]0
1915 [151]214,14:[153]:[153]"list (NULL)hile the slide is showing..."
1916 [153]" asc1 list- lenhanges border color"
1917 [153]" asc3 list- lenhanges background color"
1918 [153]" asc5 list- (NULL)oggles incredible light show"
1920 [151]214,22:[153]:[153]c$(c)
1930 [153]"(NULL)ress (NULL) to quit - atnny other to continueon":[129]d[178]0[164]5
1940 kk[178]kk[170]1:[161]a$:[139]a$[179][177]""[176]kk[177]1000[167][142]
1950 [130]:c[178]c[170]s:[139]c[177]5[167]s[178][171]1
1960 [139]c[179]1[167]s[178][170]1:c[178]1
1970 [137]1920
10000 [159]15,8,15,"s0:contest winners":[160]15:[148]"contest winners",8:[128]